home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / util / cli / cli2win.lha / window < prev   
Encoding:
Text File  |  2000-07-29  |  1.2 KB  |  47 lines
  1. /* Name:      window
  2. Source:       Aminet:util/cli/cli2win.lha
  3. Installation: copy window c: (or anywhere in the path)
  4. Requirement:  AmigaOS 3.5 or DirectoryOpus
  5. Usage:        window 'path'
  6. Description:  Opens the workbench window of a (optionally) given path.
  7. Author:       Ignaz Kellerer (ignaz@navy.org)
  8. */
  9.  
  10. path$=ARG(1)
  11. IF ~ARG() THEN
  12.     path$=PRAGMA(D)
  13. ELSE IF LEFT(path$,1)==')' THEN DO
  14.     path$=DELSTR(path$,1,1)
  15.     IF INDEX(path$,':')="0" THEN
  16.         IF RIGHT(PRAGMA(D),1)=':' THEN
  17.             path$=PRAGMA(D)path$
  18.         ELSE
  19.             path$=PRAGMA(D)'/'path$
  20.     IF SHOW(PORTS, 'WORKBENCH') THEN
  21.         ADDRESS WORKBENCH 'WINDOW "'path$'" OPEN'
  22.     IF SHOW(PORTS, 'DOPUS.1') THEN
  23.         ADDRESS DOPUS.1 'lister new 'path$
  24.     EXIT
  25.     END
  26. ELSE IF LEFT(path$,1)=='"' & RIGHT(path$,1)=='"' THEN
  27.     path$=SUBSTR(path$,2,LENGTH(path$)-2)
  28.  
  29. PRAGMA(W,N)
  30. IF ~EXISTS(path$) THEN DO
  31.     SAY '"'path$'" does not exist.'
  32.     EXIT 10
  33.     END
  34.  
  35. IF EXISTS("libs:rexxsupport.library") THEN DO
  36.     ADDLIB('rexxsupport.library', 0, -30, 0)
  37.     IF WORD(STATEF(path$),1)~=="DIR" THEN DO
  38.         SAY '"'path$'" is not a directory.'
  39.         EXIT 10
  40.         END
  41.     END
  42.  
  43. PARSE SOURCE x x x cmd x x
  44. ADDRESS COMMAND
  45. 'run >NIL: 'cmd' )'path$
  46.  
  47.